home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / CMPLTPAS / SHOWDIR.PAS < prev    next >
Pascal/Delphi Source File  |  1988-07-24  |  1KB  |  30 lines

  1. {--------------------------------------------------------------}
  2. {                          ShowDir                             }
  3. {                                                              }
  4. {              "GetDir" demonstration program                  }
  5. {                                                              }
  6. {                             by Jeff Duntemann                }
  7. {                             Turbo Pascal V5.0                }
  8. {                             Last update 7/25/88              }
  9. {                                                              }
  10. {     From: COMPLETE TURBO PASCAL 5.0  by Jeff Duntemann       }
  11. {    Scott, Foresman & Co., Inc. 1988   ISBN 0-673-38355-5     }
  12. {--------------------------------------------------------------}
  13.  
  14. PROGRAM ShowDir;
  15.  
  16. VAR
  17.   I     : Byte;
  18.   Error : Integer;
  19.   CurrentDirectory : String;
  20.  
  21. BEGIN
  22.   FOR I := 0 TO 4 DO
  23.     BEGIN
  24.       GetDir(I,CurrentDirectory);
  25.       IF I = 0 THEN Write('Logged drive: ')
  26.         ELSE Write('Drive      ',Chr(64+I),': ');
  27.       Writeln(CurrentDirectory)
  28.     END
  29. END.
  30.